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iN THIS LSSueE 


The theme of this issue 16 goulash. lez 
have imcluded all the neat things that 
didn’t fit an the theme esue,. © 


We started off with the rest af the 
article an Adventure Writing. We've qat 
two excellent articles an disk 
madification for the CiF an since we 
cauldm*t decide which ane ta publish, we 
inecduded both of them. Dave VanHarn 
alsa semb ous am excellent article an 
adding Standby Fower ta SY systems. 
Stanley Windes comtributed an excellent 
article on adding the AYEA-89 10 
preagrannable Saund Generatar and True 
anaiaq Joysticks ta the CIF. I ehould 
point aut that with very slight 
madificatian that hardware will alea 
work am C4/8 models. 


Dave Edean, the Machine Code wis kid whoa 
wrote Interceptar, Surface Attack, 
Collide and Manster Maze, sent us same 
Lips an recovering programs when yau 
crash the assembler. We have a couple 
of Cl programs and tips an Relacating 
Basic proaoqrams, Randam mumbers, 
Madifying the C4 break key and ather 
Shit . For the beginner, Park husdial 
has weitten a mice article an Line 
Mointers im BASIC. 
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ADVENTURE WRITING 


meter To L1Sting in Volve,:. Fe 

It is also @asy to inventory what 
the player has. Lane S20 ta S40 da the 
inventary. They simoly scan the entire 
list af abjects and if the location of 
the abject is gero they print the 
ah ject’s mame. That’s an often used and 
epe@ecial command ta daa special search 
for the ward INV meaning inventory in 
line 230 and jump directly to the 520 
Subroutine aif it is. found, We cam maw 
wander araund im aur awn little universe 
and pick up and drap things that we 
Ti IG oo Once we are that far, everything 


else is simply a matter of adding detail 


after mit-picking detail and logic trick 
after Lagic trick to oresent the 
problems. Far instance, lines i130 
thraugh 190 are executed everytime a 
command is entered. That’s because they 
cancernm prablems which may ar may not 
@xiet an each turn. We have on the D.S. 
& flashlight with a limited life. We 
set a flaq (F3=1) whenever the 
flashlight is oan. That adds up the 
number of times that the light is on and 


makes it equal toa FT. If the flashlight 


hae beer an for more than co tLUrns we 
tell you that it is getting dim and if 


it as an more than 3S then we turn it 


os 


otf again by making FS equal zerc. The 
thing aie that we have ta check on each 
turn ta make sure that you can actually 
See am that turn, We alea check to see 
if you are carrying a bomb or carrying 
water hecause those would effect what 

would hanpen an the turn mo matter what 
@lee you did. Sa, we check flag F4 ta 
See ia.f you have water and C8 tao see if 
you are carryng the bomb. In lines 2oo - 
eo we expand the vocabulary of the D.&. 
ay aSeiaqning synoming. Far instance, if 
the player has put in GET, you then make 
Asa" TA" for take. We Found Gut writing 
later ADVENTURES that this was less than 
perfect as ait was ailat more memory 
efficient ta simply make WH Longer amd 
add more GOTO" s ta the statement in line 


oe) 


The next topic is how toa make 
things magically appear and disappear 
into cabinets, crevasses, lockers, ancl 
assorted dark and creepy places. If you 


look at the lines from 7350 ta 7Y4O in the 


Listing, which hald all of the lacations 
af various abjects, you will notice that 
a& munber of abjects are in locatians 
higher than 18. Im eopite of the fact 
that 18 ais the highest location in the 
D.65, That's the secret ta the macic 
appearance and disappearancewhen you say 
QREN LOCKER or put samething in a 
locker. The verb OFEN is handled by the 
routine an ie4o —- Lado, The first few 
lines handle magic appearance and 
digaspearance of objects. Far 
imstance, line 1250 checks tao see if the 
player is ain the same location as the 
locker and then checks ta see if the 
second word was LOCKER and then scans 
through the entire array of 44 objects. 
Any object which is shown to be in 
location 27 locker and therefore not 
Visable ta the player is reassigned to 
be in location 8 where the player is. 
It doesn“t take any additional space toa 
create such hidden crevases as there 
doesn’t need to be an element 29 in the 
location array and the implied three 
dimensional quality af the program is 
greatly i inhanced by the use of such 
techniques. 

Line 1300 demonstrates another one 
of the great advantages of this 
particular scheme of mapping an 


environment. It 168 easy to open up new 
pathways by simply changing an element 
im the array of movements. Line L3aoao 


shows how this is done in D.S. There is 
a door which can anly be opened from ane 
side. Line 12300 checks first to see if 
you said OQFEN DOOR and then if you did 
and you are in location 14 it changes 
the second location in the array far 
lecation 14 to a <2 Father than a 0, 
changes the name of the door toa OPEN 
DOOR, and opens the corridor from 
location if toa location 14 by changing 
that element in the array. The 
technique , therefore, allows for easy 
modification of the adventure map during 
the play. It is also handy for one way 
passages which add a lot ta the joy and 
bewilderment af the adventurer. There 
are passageways that can be closed 
behind them by simply changing a former 
roam number to a zero in the movement 
Arr AY . 

Mast of the other supposedly 
complex lagic of an adventure 15 
actually just a simple setting af flags 
and checking for locations and words. 
You have to get the idea of flags 
definitively in mind before you can 
write this type of program. There are 
a number of them used in D.S. For the 
purposes of this article we'll define a 
flag as being a variable which has two 
Values - on and a Though they are not 
used oaften ain D.S. as it was one af my 
earlier attempts, there is a neat 
canstructiaon in BASIC which allows you 
toe check to see if a flag has any value 
other than zero. The phrase "IF T THEN 
XAX" will come up as true if T is 


anything at all and will come up false 
anly if T equals zero. Therefare, if You 
have ai number of critical things an 
adventurer must do before he can da 
other things, you simply set a flag each 
time he completes ane step of the 
change. AS an @xample, the first flag 
you encounter reading through the D.S. 
ADVENTURE is in line 150. The flaq FS 
is the flag for the flashlight being oan 
or OF. Whenever the player says LIGHT 
FLASHLIGHT, we make FR equal 1, we then 
stare the number of uses. of the 
flashling in FT. When the player 
uniights the flash, it is time to make 
Fos equal zera. Therefare if we are ina 
dark erea af the ship, and want to find 
gut if we can print the description of 
the surraundings, we laok at FR and if 
it a6 ] we print what is there to be 
SEG 


The magic af transmutation is 
anather interesting aspect of 
adventuring. The adventurer dqathers up 


flour, eqgs., milk and a bowl and - FOOF 
~ eaverything disappears and is 
transfarmed into acake. There are a 
number af methods of doing that. One 
is ta simply change the names of the 
abjects as is dane in line 1500 in D.S. 
In line 1500, the box has just been 
amashed, samething teleported inta the 
room and the description af the box has 
been changed tao SFLINTERS. That only 
Works, OF course, if your don*t want toa 
pick up the box anymore as the word 
SPLINTERS is not in the lang object 
string which the program checks for 
abject words. There 1S a secand 
technique which is usable if you have 
the space for it and which is a little 
more versatile. What you dois to add 
the desired object such as CAFE to the 
list of objects when you make up the 
imitial listing and then when you want 
to make a transmution you simply switch 
the location of the objects. The bowl, 
flower, milk and whatever change to a 
location off screen and the location of 
the cake is changed to on screen and 
FRESTO!! ait suddenly appears. 

For other things it is usually even 
simplier and I am not going to try to go 
over the entire program line for line, 
but ain general most problems ino an 
ADVENTURE are a question of do you have 
the right object to carry out this 
cammand? Far that you simply check to 
see if they are in the right location by 
checking the number of the room, check 
the location of the objects he has to 
have by seeing if they are all zeros (on 
him) and then either complete the 
command or ignore it. 


In general, if you want to look at 
individual verbs in the D.S. listing, 
simply look at WS which appears in line 
69O, Count over by twos to the first two 
letters af the verb you want to examine 
and look at the "ONFGOTO" statement in 
line 300. That will give you the 
location of the subroutines that service 
that verb. 

That should get most people off the 
ground im being able ta write simple 
reality simulation ADVENTURES. We could 


Caminocg wp with the eynaria, 


players than gamblers. 


go into mare detail, bub that would 
apnaid the fun for anvone who was weiting 
CHG 

There 1¢ ane more topic that we 
need ta cover before we clase the. 
article. it*e » Jot easter to code an 
MOVE DM TURE . that is tao write the BASIC 
code, than it a6 toa write an ADVENTURE. 
che plat, 
the problems, and the map ie  imch mere 
work than the cading and much more 
par tant. There are ai lot af 
AOVENTURES caminad an the market and same 
af them are extremely goad but a lok cor 
them make same oretty definate and 
baSic mWietakes that we can warn mew 
GOVENTURE writers about. Parst OF all, 
after the tiret halt hoaure Of playing an 
AOVENTURE, mosk peanle da mat care about 
Leng de@eeriotican, It's great the fairet 
hime you $6@e@ a descripghian that begins 
With COYOU ARE CNM A TALL AND WINDY HILL 
LOQEING DOWN AT RAIN SFSATTERED FOCKES. 
THe 667 AEOVE FIR) 15 GLOOMY... ete Bit. . 
etc." Unfartunately, during ary 
ADVENTURE that deseriptian will probably 
be read twa ar three hundred times and 
after the secand time yeu interpert it 
as being "MOUNTAINTOP" mo matter what 
the long description is. In general, 
peaile preter many mare locatians, many 
more objects and more complex logic ta 
having lates of land pretty . 
descriptians. 

The manner am which the promnlem i¢ 
soalved i¢ probably the mast crucial part 
af the game. Noane of the ADVENTURES 
which we publish have any random mumbers 
im them. Am ADVENTURE ta aio thinking 
type problem. There be mo duck | 
imvolved, it appeals mare ta chess 
That means a 
number af thinags. The first thing it 
means is that the problems must be 
difficult ta handle but reasonably 
eoalvable. The adventurer ance Ne sees 
the solutian ta the problem and qets 
thraugh should slap himself an the 
forehead and gay, “My Gad, why didn’t T 
think af that first." AS an example af a 
yery poor ADVENTURE coanstruct, there is 
a rautine in the ariginal ADVENTURE 
weitten on a DEC system where in the 
adventurer is trapped in a carridar by a 
cyclops. There is mo way past the 
eyclops (“and mo way back. The only way 
out is to whisper "ULYSSES". At thet 
point the cyclops ‘gets scared, runs 
through the wall, Making a biq hole 
whieh yau fallow. The real problem with 
that particular scenario is that no one 
im his right mind is ever going to salve 
that proablem. Na matter how cute and 
ariginmal the programmer was, that makes 
Yery pacu cqeaminmc. Therefare, the 
problems presented must be carefully 
chagsen. They must be difficult but 
solvable, and mare importantly, 
rationally salvable. The’ ADVENTURE 
weiter is mot trying ta prave how cute 
he can be but to present an interesting 
prablem ta the adventurer. 


if 


+ 


~ 


CO amaze, 
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With that ain mind, before the first 
Line of an adventure ve written there 
emyauild be  & camplete mao ar lacatians 
the ADVENTURE will take place im and a4 
movement chart and a list of problems 
that are going ta be presented and a 
liet of the Gojettes thet are qaing to be 
used. 
| It*s kind of like’ writing a book 
rather than writing a program. You have 
ta epend ailot oF time om that pict. 
With that oan mind every bady aa out ane 
have fun making your own little universe 
betuddle amd astaund yeu 


frpends. 


LIME POUNTERS I Ool BASIo— iMRI 
BY MARE GUZDTAL 


Im the internal farmat of Obl 
Basic“in-Khom,. he firat three bytes of 
each praqram Line caomsiet of am initial 
mull (a 2#eroa) and a two-byte pointer ta 
the memary addrese where the next line 
hec1ris. tn this articie, Le ieee Go 
discuss what this pointer does and where 


it’s used. 


The pointer i6 used far getting fram ane 


line to. the next more quickly than by 


wading threaugh each byte looking far the 
: The pointer ta the secand 
line im the program is at $0301, *oO3808 
(Oec. POs? 70) « Let"a gay they canmtain 
a $10 and a #O8, reenectively. Since 
Line painters use the 6302 farmat of 
least Ssiqnificant byte (LSE) followed by 
the mast Siaqnificant byte (MSH) of an 
address, this means the second line 


-Bbecine eb. #0210, mie nirad Line car 


then be found at the address contained 
im $9310, $0311. These jumps are alot 
easler than just checking each byte 
between $0300 and $9210 far the initial 
madi oof the second line. 


This could make insertian of new lines 
really easy. If Basic just “tacked" the 
new prageam line at the end, it could 
then guet change pointers around tea 


point ta the mew line. But it doesnt. 


ra 


Every time that we type in a new line of 
code,  Hasic figures out which memory 
Location it belong iin, and then moves 


the whole program in memory-inserting 
Our program line in its correct spot. 
Then Basic qoes through and re-adjusts 


the pointers. Why goa toa ali that 
trouble’ 


Recause the main function as Ragsic, 
RUNning a Basic program, doesn*t use the 
mointers to goa fram line-to-line (except 
for GOTOs and GOSURSs), Tt wades through 
the porogqeam, byte-by-byte, sa that it 
can execute each byte that it comes toa. 
This means the program lines must be in 
arcder. 


The main function of the pointers is in 
the LIST cammand. 


Let me try and prove this. Let’s use 
the pointers as If describe them above, 
With ($0301, $69302) pointing to #0310. 

Let's also assume that those first two 
lines are numbered 10 and 2o, If we 

change the pointer at (#9310, $0311) ta 
point to some impossible address like 

$0300 €(this is the easiest address to 
change to, just FORE #0310 with ao). 

Until we get toa a GOTO or GOSUEB, the 
pragram will RUN correctly (if we use 
FOR..»-MEXTS, we'll notice even they run 
correctily-that’s because they use memory 
addresses, mot line mumbers). But if we 
try and LIST the program, well, we'll 
Rave ta warm start because the computer 
Will start throwing garbage up on the 
screen and lack-up., If we type LIST 

O-1O00, the program will list up to line 
2 and stop. 


The LIST-alone crashed because it 
followed the pointers which started 
leading to addresses that weren’t 
correct. The LIST-~by-line-number 
worked, somewhat, because it does checks 
on the pointers to see if they’re at all 
reasonable and stops when they seem to 
be aut of the range specified. 


If we tried to insert a line, say 21, 
right now, we'd find a terrible mess oan 


our hands, totally un-RUNable. That’s. 


because Basic would try the initial null 
of the first line and cause an even 
bigger mess when it tries ta move. the 
mamary down to make room for the new 
line. 


Rut if we tried to insert a line, say 5, 
not aonlly would it work, but all the 
pointers would be restored to the right 
places. This is because we would he 
inserting BEFORE our now defective 
pointer. 


Finally, if we don’t do anything but 
replace whatever was in $0319 with the 
value was there before we nulled it out, 
we'll find our program to be functioning 
fine again with no problems. 


So, line pointers in OSI Basic-in-ROM 
are used ain LISTing and for finding 
where a new line should be inserted, but 
they are not used for getting from 
line-to-line during sequential Basic 
execution-line pointers are ignored 
during execution except for finding GOTO 
and GOSUB line numbers. | 


IT hope that those users who work with 
Rasic internals may find this of 
interest and use. Hopefully, this 
article will clear up any confusion over 
what those first two bytes after the 
mull were doing there. 


see MAKING YOUR DISK QUIET... 
BY DAVE FOMFEA 


As —[ sit here the red light an my disk 
drive i685 on but there is mo sound and 
the head is not loaded. Your disk can 
be resting too. 


When DOS wants toa access the disk it has 
to load the Neacds seek the tracks wait 
for the index holes wait for the correct 
sectar and then read the data. All 
these operations involve accessing the 
FTA & ACTA at the address COXX. We will 
use this COXX signal to tell us when to 
Start the disk drive motor. We need to 
use the Fhase 2 line to tell us that the 
COXX address is valid. Sa heres how it 
works: 


When the Fhase 2 line goes high and the 
not COXX line is low the one shot is 
triggered (and can be retriggered) and 
starts timing. This turns the drive 
motor an until it times out 
(retriqgqering restarts the timing). 

This motor an pulse starts another 
oneshot. This one blocks the index hole 
pulse so that the disk can get up to 
speed before DOS starts reading ar 
writing. 


HERES HOW TO MODIFY YOUR CIP: 


1, On a small perfbocard mount and wire 
the 74125, Ri&2, Cik&e., 

a Open up your CiF to expose the 
bottom of the 619 board. 

or Using wire wrap wire (any thing 


bigger invites burned boards 

and fingers!) connect the spare 
S-input mand gate U7 pins 1 & 2, 

to the spare inverter US Pin 4. 
4. Full off the disk interface board 
(it’s the one with the ribbon 

cable and look at position 4, that 
the motor an signal, it’s 

jJumpered tao position i232 (GND) to 
keep the motor running all the 

time. Cut that jumper. 
wa» . Now take an XACTO knife and cut the 
trace from U72 pin 9 to 

the bias resistors. 
& On the top of the 619 board cut the 
trace that comes out of 
| U72 pine 14 (motor on signal). 
Vee Connect the 74123 pin 2 to U72 pin 
2a (the phase 2 line). 
8. Connect the 74123 pin 1 to U7 pin & 
(the not COXX line). 
9. Connect the 741235 pin 4 to U7S pin i 
(mator on line). 
19. Connect the 741235 pin 12 to U7 pin 
13 (index inhibit). 
12. Conmect Us pin i2 to U7e pin F 
(index ta FIA). 
iz. Connect US pin 3 to the index signal 
bias resistors, R33 & R34 

Cather side of U72 pin YF trace 
Gut). 


VU 


Coamne@ct power  & GND ta 
that at, your drive 
whem DOS wants to use 
SS EeC a ta Jet the disk came up ta speed 
fhy blocking the index hole eiqnal?) and 
then turn aff arter abaut = secands at 


the 


motor 


PAL 


wild 


amc 
Curr: ori 
the digk, wait 1 


Yow 
ye 
may 


cer alea chanqe the 
drive ta laad the head upan 
Fitvs already eet far load ar 


inside 
moakor 


JUMPer S 


BoARD 


9 
~ 
\9 


DRIVE FIX 


Cir MINE FLOPP 
FIN | 


oTOR ON (BASED 


f- 
Ye 
loo uf 
5) Shy 
wed 
] 
yf 


Ri 


select). shoul cd 
shart as passible and 
capacitar tai the 
reduction. 


Youu all 
Ae. id wlF 


+ or 


ees 
add 
74423 


WEP eS ac. 
br v 3 ee te te 


rice ses 


To chanqe head 
load with matar 
remave the pin 
pin %-8 shunt 
imside the 


Load 
Cary 3 
1-1 4 

at 

drive, 


With drive select to 


shunt and make 
the praqgranming 


the 
socket 


euT 


TO us 


PIN'3 


TO U7 
PIN, lew 


INDEX 
(R33 34) 
BoARb 


HZQUb< 


WAET (/Sé€) 
TO YOUR 6/0 


ADD THIS 


uta 
PING 


If using same other power supply - read 
or! 
5V 

Supply freee, fo bee 

SPST BornrRe 
SA AD PIV Pace 
Dio DES A 
I Y is Any Pont in ower 


5 NICK 
D CEens 


STANDBY FOWER SUFFY FOR C1i/C4F°S 


BY DAVE VAN HORN 


Tf using CIF ar 4F with Delcoatroan T1-8c 
power supply use sheete A,H., 


Supply w/Pc VohtaceE 
GREATER ThAN JY 


R (OHMS) = == 


joo 
T= CorRRENT RATING OF 


N'IcAOS CyAM Cells 
RécommEND ED) 


Re adjust power supply ta provide SV to 
Roard. 
Tf using fixed requiator try thiss 


IN 


TINYOO| 


fools regulator 


It raises output voltage by .7V. ILE 
resistor provides feedback. Capacitor 
provides soft start. 


A 


1. Set comp. on 
KB facing you. 
a» Remove bottom of casezrremove board 
from case. 

3S. Make sure computer is unpluaged. 

4, Unsolder wires to transformer  & 
remove FS from case. 

a. Set FS on table & reconnect power 
cable but don*t plug in yet. 

& Turn PS so that large capacitors fac 
toward you. , 
7. Look at top right corner of F.C. 


board for 3 holes. LA 
ou 
| looNFCAR—7 ® = 


table upside down with 


A.B, and C should be connected to same 
foil. Flug in FS and meter voltage at 


A, Bor Ct. Bhould be in Li-i4yv. 
a x If V i= 13.8 then use 190 nmicad cells 
im series. 
Tf V«ed3.8 then use i 12V gell 
cell. 
IT = current rating of standby a 
battery. V-12,.2 va 


If nicad then charge resistor 

Use mearest higher standard 
resistar. 

If ge@eli then charge resistor. 


(Too) 


Y- 13,8 


75s) 
Gra 
9°, Fut GA 25 pin diode in hole &B with 
band facing you. Fut 


resistor in Hole 4. 


Tf you want fast charge cannect A 
high power = ener. (see 
KR) in hole C with band(s) toward 


WL 
Connect all free 
attach 18" 2O9A wire to 

battery or jack - of batter goes to 
Case. . 


leads together & 


Switch 
Pree el 
Cc 
A z XFMR 


CHANGE This As Follows 


This allows you to turn of camputer with 
Switch. 


Fuse 


| is - | 
err 
DI +5 Ps 
pase CompuTER 


The advantage of this method is that the 
output voltage does not change 
appreciably (2 .91VY) when on standby. 


BR 
FOWER 2 ENER, 


This is made by connecting IN4001 diodes 
in series. 
The ‘number is determined by 


(eRe 2.) =N use Next HIGHER ENT. 
7 W225 


WY 


least ain my campany. One mare item, you 
‘ woe 7) i I" tal wee pone ofee . “ | hb oe = of. o0q pees sf e pty abe | fat my eth 
Example : ek a Aart me now that Mary Bicadablcue SUB 
are avallasle far use im 630, BASIC in 

ROM or even their monitor proqram 


13.4 -12,2 - GOA-GSV-SSF, etc. as lamag ae at ends in 
ai sl ~ lo = | SSO CRTS), Use iti! 
ConN Ec) Like th I> LG. -OO0G JACK ODELL’S SUPER 
a= DEC TO BIN CONVERTER 
| JR j}R 20 9000 sCONVERT 8 BIT DECIMAL. 
- Bann BYTE IN ACCUMULATOR 
| | ao OOOg 2TQ HEX DEC EQUIVELENT 
Whole LKT iS IN ACCUMULATOR AFTER 
ie ae eee 40 OO0g SCONVERSION., USES 2 
—+ |RK, TEMF. STORAGE LOCATIONS, 
| TOtOF BO OOO "SAVE 1" OND “BYTES 
: BAH ERY OQ OOgd | PLATEST VERSION 


Cog ig d Pee 


7O Oooo 7 
V+ Schemavric HO 4000 K= $4000 
90 4000 , 
1OO 4000 48 DECRIN FHA SAME 
Bil BY Tks 
os aac 110 4001 290F AND #$0F GET 
nan mil Ge Me t/a BYTE 
—=_. 20 4003 BDLR4O sie BYts 4.6 
——— if2 BYTE 
Ee 130 4006 68 PL (at 
= RACK SAVED BYTE 
140 4007 29FO AND #$FO GET 
Paid ie ie 4272 SYIc 
BOB McCULLA, EVERETTE, WASHINGTON 140 4009 44 | ee ny 
160 4008 8D174o STA SAVEL 
17O 4000 46 LoR A 4 
I Wave gust received Issue nma.6 and 180 4oo0r 44 Lor 4 Q 
enjoyed it quite a bit ‘fas usual). I 190 400F 19 cy 
was Aa bit shocked to see you mentian Sot AOLG 41 74AG ADC SAVE 
Assembly progranming, knawing your St AGI. 6HisaG ADC RYTE 
abhorance af this mode. IT really can’t Hoy Ani oC ETS 
understand yaur feelings tawards machine 920 AOLZ OO SAYVE{ .RYTE 00 
language but, different strokes etc. S40 40183 OO BYTE LRYTE 00 
One way ta make Assembly Frogramming a sary ALS WEND 
little @agsier is to keep a notebook, ar 24 BYTES 


disk file, of oaften used subroutines. 
Like, for instance: One hex byte to two CURT BRODERICK, CLINTON, MASSACHUSETTES 
ASCII converter, (QHTA) as it is knaw. 
A few others - (TAQH) or even 4 ASCII ta 
2 Hex bytes converter (FATH). I even 
have a standard input text buffer that I 
wee all the time to input data from the 
kayboduecl. It can accept anything from 4 
characters (ASCII) ta a full screen 
PUL es The idea here is ta make sure 
that I don"t keep re-inventing my wheel. 
A Little black or red, book of selected 


Here is my pragram. Tt i168 for the CIF. 
The one thing that i8 unique, is the 
timer ¢~T think!). One round of the 
clock and the game is over. Lang play 
is two times as long as short play. 
The object of the qame is to kill a high 
percentage af the Wampi (plural of 
Wampug). The only control keys in the 
game are the 1 key, 2 key, and the 7 


shart pragrams or subroutines, can key. Ry using the i and @ key: 1 is to 
really help save same time. Why rot Ask ga left, 2 is to go right, you position 
your readers ta cantribute same af their yourself under the evasive Wampus 

BOGS: velhe Fat Se eet oe eS ee ee (CMR) One: under it, -hit the fier 
away. I would like to start this off (7) key and see if you hit it. Score is 


with a little qoodie that I like ta use 
now and then. 
This little sub is used to convert 


shawn at the end af each game. 


numbers that I enter through the FOR SALE 

terminal, (Cin decimal) to Hex cade. RASE 2 FRINTER, 64 TO 132 CHARACTERS FER 
This sub is used after the (TAQH) LINE. 300 CHARACTER BUFFER, 

canverter and allows the person using RI-DIRECTIONAL, MULTIPLE CHARACTER SETS 


the pragram ta inout 94(dec) instead of AND FULL GRAPHICS. $450.00 FHONE CHUCK 
mE Chex), The origi mat author oF This SCOTT (S13) S28-0088 OR WRITE ‘ele BELLE 
sub is Mr. Jack Odell the best controls COURT, ROYAL OAR, MI 48072 

pragrammer in the world, aor at the very 


AS 
FLA 
FQ) 
ta 
RO) 
ee 
PO 
c aa 
1Oo 
LOS 
Lig 


EW) 


400 
40S 
At)? 
ALO 
4is 
ot) 
417 
A2O 
Aes 
ASO 
AS 
4&0 
465 
wOO 
wldO 


es ® 


3 GOSUBISOO: GOSUBI1OO 


ae nw tt @ @ 8 @ rm Bae RHR KH HR eRe 


REM CURTIS BRODERICK 
REM CIP — KILL A WAMPUS 
RET 


n #8 Bp UH & BH 


none 8 np Mu 
nnanmeePeaeemee|eaeaa uw 


CLeteorCT=iehsrPRINT 
PRINT’ (1) LONG PLAY" s INPUT" (2) SHORT 
dane ae 
ClLelLeorCT#128:FRINTs IF IT=1THENCT=250 
PRINT’ <i) BAPEERY* 
FRINT' (2) INTERMEDIATE" 

INPUT" (3) BEGINNER” s f 
IF T=) THENH=17s SH=7 

TERT =2THENH=263 SH=S 

TF I=37THENH=458 3s SH=3 

IF I< TORT SSTHENPRINT s GOTO7S 
SOSURT2OO0: GOSUR9OOD 

=FB4TRO+INT CRND C99) kK24+1) 

FOR ES SO, Jak =S70988sA=248: PORE, 127 
Ke Si Sos PORE XX, A 

IFPEEE (2) =127THENI9O 
IFPEER (i) =19 1 THENZOO 

IF FEER (i) = 2S 3THEN400 

TIFF SI THENP = + 7 

CLA ds GU aes SO FO 
FOREX, 32s X=X-LEPOREX, A:GOSUBSOO: GOT 


POREX, 322 X"X+1lsPOKEX, As GOSUBAOO: GOT 


IFP=OTHENW=S 357 14+1NT (RND (99) #2441) 
IFFP=0ANDABS (C—W) < SHTHENS00 

C= 

POKEW, 4 

Poet | 

CL=CL+1 

GOSUETSO 

IFP >HTHENSSO 

RETURN 

FOKEW, S2:F=O2Z=O0:GOTOEOO 

FOKEX, 32 

XaX-S2 

FOKEX,A 

IFX=WTHEN 450 

IFX< S3550THENFOREX, S32:91=S1+1:G0TO1 


POKEX, 32 

FORT=1T04 

GOTO400 

FOKEW-1,4:FO0KEW+1, 4 
FORT=1TO1000: NEXT 
FORT=-1TO1:POKEW+T, 32sNEXTT 
S=S+1:G0TOIZO | 
GOSUBIZO0:PRINT" TIME IS UP bite 
PRINT:PRINT"OF"S+9$1 "SHOTS YOU GoT"S 
L$="BEGINNER" :M$="AN": TF l=1THENL $=" 


Aree 


ot) 
AQ) 
SO 
wot) 
OO) / 
a 


TFIT=2THENL $="INTERMEDTIATE" 

IF T=S3THENM$="4A" 

PRINT#PRINT"AS "M$" "Lis 
PRINTSPRINT° YOU HIT INT (S/ (S+51) *10 
O'R “OP THEM 
FORT=1TO7:PRINTs NEXT: INFUT"FLAY AGA 


IN": M% 


waO 
IO 
Fao 
760 
BOQ 


TFASC (M$) =S89THENRUN 
PRINT SPRINT "BYE" s END 
IFCLECTTHENCL=0: GOTOROO 
RE TURN 

FPOREM+AM, 322 


| Boe 
BLO 
Bis 
RIS 
ROA) 
B40 
eed Sa 
Oe) 
P10 


TFMC=STHENAM= 32 
TFMC=9THENAM=33 
IFMC=1 3 THENAM=1 
READ CA 

IFCA=1 THENSOO 
FOKEM+AM, CA 
MC=MC+ 1 

RETURN 

MS 2423 


POREM-GS_ e218 eae Cee ie a, 


e2Qt POREMTGG, 225 


P30 


CT 
tanst wad 


940 
P45 
oe gos 


POKEM-32, 131:FO0KEM-S1, | 

PacEMEs 4, I> eokeMies. dao 

PORKEM—1, 140:FQKEM+31, 140 

FOREM+2, 139:POKEM+34, 1359 

POREM~65), 84: POKEM~64, 105:POKEM-63, 1 


OF POREM—-62, Lod 


970 
990 

,143 
995 

A 


RETURN 
DATA143, 199,190,198, 128,195, 189,201 


DATAZOO, 190,197, 155, 196, 1A9, 202, 136 


1OOO RETURN 
11900 FORT=1TO8srPRINTs NEXT: GHe"RILL A WA 


MPUS" 


1110 FORT=STOL@:FPRINTTABCT) sMIDS (6%, T-4 
2) SFORTIAR1L1TOS6s NEXTTI,T 

1120 FORT=1TOSOO: NEXT 

1230 FORTS=S4120TOSSS08STEP-3S23s PORET,16 
FORT I= 1TOQ60: NEXT: PORET, 32:NEXTT 

1740 FPORT=S3600TOS4070STEPS3s POKET,. 19: F 


ORT T= 


PTOIPS NEAT SPORET , S22 NEXT 


1150 FORES4O7O, 240: FORT=1TO999s NEXT 
1200 A=FEER (129) :R=PEER (130) sPORE129,03 
FORKED SO, 2la2:;Ss$=" "sFORC=1T07 


1205 


SheS$t+ Sse" “Vs NEXTsPOKELS9,A:POREIS 


O, Bs RETURN 
15 WOO RETURN 


‘DALE MEYERS, LANSING, MI 48910 


The following programs are for making 
tie ff 


andam number generator have a 


random sequence (I believe) far 


BRASIC-IN-ROM (disk BASIC should be able 
be changed similarly). The first 


eo 


program (listing 1) pokes a machine 


language program (without having to go 
the Monitor mode) that jumps the 

parser into a routine on page 
(listing 23) which checks for the RND 
keyword, #84. If the keyword is found, 
the system decrements $F7 and if zero 
sets $F7 at $D9, decrements $FS and puts 
the $F8 value in $Dé6, 


to 


character 


t) 


the random seed. The program adds 


clock periods for every character and 


keyword examined by the BASIC 
interpreter. Of course the program 
resides entirely in page 9, sa it 


doesn’t conflict with the program or all 
machine lanquage programs in page 
2 that you have stored away. Also the 
program doesn’t use the USR vector 
the only place that I know of that 
be changed while 


thase 


1s 


RASIC’s operation can 


it 


is running). 


the third value af 


(this 


Y 


The secand program (listing 3) does the 
same thing as the first program but as a 
subroutine in BASIC, which aif called 
anly a few times im a real lanq program, 
before use of the randanm functian might 


be faster than the machine language 
Ce COC UT I have checked these programs 
and have found ma sequence im aver 
400,000 uges af RND(8), after 
imitialization of over 200, 000 Uses at 
the randam function, and distributian is 
qacad., 


LISTING 4 


LOoon ; 
FORX=216TO238: READR:s FOREX, Rs NEXT 
10005 REM Listing 2 will now be in 


pace © 
10010 PORE2OO, 1: NEW:REM BASIC has 
naw been changed ta ga 
So Tieeaine i 
Lon eo 


DATAZO1, 180,208, 16,198,247, 208, 10,169, 217, 133, 247 


Cr 


je oe ® Sent Fane? Moe’ 


DATAZIO, 249,165, 248,133,214, 169,180, 201,58, 96 


LISTING « 


OOCR s « ee OE | Jumes to randam 
check 

OOD... CMF #EB4 compare ta RND 

OODA....RNE $O0EC branch if moat 
equal 

OODC..e.DEC GF? decrease $F7 

OODE....RNE $O0EC branch aif nat 
equal to 2zera 

QOOEO,. eet DA #BDF Load A with $D° 

OOESs cna GlA BSF7 reset $F 7 

QOQOE4...2.DEC $F8 decrease $F 

ONES... sL DA 8FS load A with the 
Value of $F8 

QOOEB....57TA $D6 store at #D6 

QOOEA.,.. LDA #ER4 reload A with 
RIND (B4) 

QOOEC....CMF #430 reset flags 

CED) ye ech eS 


LISTING 3 


19 X=PEERK (247) sX=X~12POKE247, x 
a 


IF XTHENMPORES47, 219: F@Q=FO+1+255* (FA=255) :POKES14, 


Fo 
12 RETURN 


EARL SEIDLER, WEST GERMANY 


This is a Little program which I’ve 
written. I found the idea ta da it ina 
German computer magazine called "CHIP". 
There was an article about a game far 
the AFFLE II which was called to write a 
similar game for the CIF ar C4F, The 
only difficulty was that I didn’t have a 
listing af the proagram. Rut Fo think 
the description was encaugh, and the qame 
is good enough (I hope). 


The object of the game is to let your 


Snake Gat as many meatballs as pussible 
and ta let it cover the langest possible 
Way, You cam Steer it with the L-SHIFT, 
Re-GHIFT, EaC-and CTRL keys ‘explained in 


the aqame). T added selectable 
difficulty levels (-Q2elow, O=f ast) fr 
the seneed af the enake. HOMetli Mes a Mew 
meatball will appear oan the screen ar 
ane willl disappear. Tf & New ane 


appears, the number af the affered fond 
Will increase by one. 


Everytime the snake has eaten a 
meathall, the camputer will print cout 
the cavered way and haw many percents oF 
the offered foaad the snake has eGaten., 
If you get more than SS% yau're qoaoad. 
It as passible ta get a poisaned 
meatball. Then the snake will eplit and 


appear at any ather place af the screen, 


Ge you get the meescaqe: "GAME OVER — 
SMAKRIE DEAD". 


Im line 760 I set the variable "F". it 
qives the length and width of the area. 

If your system is a C4PF ar a modified 
CiP you can change it to 32 (now it’s at 


eryeny ) 
pr a 


BO REM RATTLESNG@KE 40 REM COPYRIGHT F 
OR CIF 18.53.1981 Gy: 

SO REM KARL-HDINZ SETDLER 

40 REM ELTZERSTRASSE & 

7O REM Bi76 MEINERSEN-OHOF 

a0 REM wl. ~GERMANY 

OO REM TEL. (O72) an 

100 GOSURT 460s KR=S 70888 Ves FO=8O02D=INT ¢ 
BND (1) k4+1) sONDGOTOLZ0, 130, 140 

110 De32:G0TOLSO 

20 De-S21GOTOLsoO 

130 D=-1:GOTOQiS0 

i40 D=i 

150 CsS3346sleS2: [FPEER (UB) <1 29THENC=53 
Biv: Le64: Ven 

1460 Fe ee 

170 PRINTTAB (CS) "RATTLESNAKE" :PRINT!PRIN 
TaFRINTs PRINT: PRINT 

180 INPUT" INSTRUCTIONS" ;A®s IFASC (AS) <> 
FETHENGOSUBRS4O | 

190 INPUT"DIFFICULTY (1-10) "sHsH=Hk1iOsG 
OSUB74O 
200 REM SET UF AREA 
210 FORX=1TOFs POKEC+X, 154:POKEC+XKL, 157 
FOREC+E+1+X*L, 156 
220 FPOREC+ (FP +1) *L+X%, 155s NEXT:POREC, 14653 
FOKEC+X, 167:FOKEC+X#L, 146 

250 POKEC+X*L+X%, 169:G9=C+11#L+11 

240 FORX=1TOFO:FOKEC+INT (RND (C1) KB24+1) kL 
+INT CRND (1) €22+1), 242 NEXT 

250 GOTOBRO 

260 REM CHECK IF KEY IS FRESSED:. CHANGE 
DIRECTION 

270 K=PEEK (KBR) : TFNOTVTHENE=255—- 

280 LFR=S5°THEND=1:GOTOS20 

290 IFE=255THEND=32: GOTORZO 

BOO IF K=250THEND=—12GOTOR20 

R10 IFEk=222THEND=—32 

B20 S=S+D: IFPEER (9) < > 32THEN41O 

SRO FOKES, 226:POKES—D, 1871 :WAY=WAY+1 

S40 FORX=1TOH: NEXT: IFRND (1) >. 6STHEN270 
250 REM SET OR EREASE MEATBALLS 


For Ci 


BOO F=C+ (RMD (1) KF +1) KL+RND (1) KF +1: TFPEE 


ar >a 


WAP) 2S 2 THEN S7O 

370 POREF, 24:FO=FO+1 

S80 Fel+ (RRND CL) KF +1) KL+RND (C1) KF+d: TFRPEE 
BF) S24THENS7O 

ow? PORE s528 FOTO 70 

400 REM SEE IF THERE IS ANY ORSTACLE 
410 IFPEER CS) >S32THENS40 

420 REM EAT THE MEATBALL 

430 FORX=17TOS0:FOQKES, 62: FO0KES, 25:NexTsM 
E=ME+ 1 

440 PRINTCHRS (12) "WAY" SWAY: "9 “ZA=" EME KLOO 
FOS 

4350 IFRND(1) >. TTHENS30 

440 REM MEATHBALL WAS FOISONED! 

470 FRINTCHRS (1S) SFC(22) : 

480 FPRINTCHR$ (13)" POISON! ! "3 sFORA=1 TOL 
SOO s MEX T 

490 D=ilsFRINTCHR# (1 3) SFC (22) 32 5=C+ CRND ¢ 
1) *F +1) KL+RND CL) KF +1 

SOO REM FIND A NEW PLACE FOR THE SNAKE 
SiO IFFEERK (S+1) =S32ANDFPEEK (S+2) =S2ANDPEE 
KE (6+3) =SSTHENS=S+Ds GOTOS30 

220 GOTO490 

we REM WALL ~ GAME ITS OVER 

S40 FPRINTCHR# (13) "GAME OVER - SNAKE DEA 
D's sFORA=1TO S000: NEXT 

Ja PRINT: GOSUB7S60:FPRINT" YOU HAVE KILLE 
D YOUR SNARE!!! 

WOO FRINT'IT HAS COVERED A WAY" :SFRINT"O 
F'sWAYs "METERS AND HAS" 

370 FPRINT"EATEN' sMEs "MEATBALLS 

3BO FRINT' THIS ARE" sSMEXLOO/FOs "” OF 

290 PRINT" THE OFFERED FOOD 

600 FORX=OTOS:FRINTs NEXT 

610 INFPUT"ANOTHER SNAKE" sAt: IFASC (AS) <> 
78THENWA=0: ME=0O2FO=S0: GOTOL9O 

620 GOSUR760: END 

630 REM INSTRUCTIONS 

640 FORS=1T06:FRINT: NEXT 

630 PRINT" YOUR SNAKE MUST EAT AS MANY 
MEATBALLS AS FOS- 

660 FRINT'STIBLE. YOU CAN STEER IT WITH 
THESE KEYS: ":FRINT 


670 PRINT" ESC = UF "SPRINT" CTRL = DOWN 


S60 PRINT" L-SAHiri = LEFT EerPRINT” R-SH.: 
FY = RIGHT":FPRINT — | 

690 PRINT" TRY TQ CATCH THE BALLS WITHO 
UT TOUCHING YOUR 

7OO PRINT" SNARE’ S BODY OR THE WALL 
740 PRINT’ RUT ZF YOU GET A POl- 
ONE THE SNAKE 


SENED 


729 PRINT"WILL SFPLITT ITSELF AND AFEAR . 


AGAIN ON ANOTHER 

7SO PRINT "PLACE OF THEN SUREEN. "PRINT 
749 INFUT" READY" SASS FPRINT: PRINTS PRINT 
: RETURN 

730 REM CLEAR SCREEN 

760 ZY=PEEK (C129) 3 ZX=PEEK (130) sPOREL29,90 
:PFOKRE130O,212:S¢=" " 

779 FORKX=17T07:S¢=S¢+5¢+" "sNEXTsPOKEL29 
»ZY¥Y:POQRE130, ZX: RETURN 


780 : D=DIRECTION; L=LINELENGTH; C=UPFE. 


R-LEFT CORNER: V=SYSTEM 

790 : S=POSITION OF SNAKE*S HEAD: WAY=W 
AY COVERED IN METERS: 

800 ¢ EB=KEYBOARDs K=FEER (CKEYROARD) ; 
810 2: MEAT=NUMBER OF MEATBALLS SNAKE HA 
5 EATEN 


1a 


MOTOR CONTROL FOR THE CiP 
DISK DRIVE 
BY JAY L. CROSS 


After trying Edward Keating’s head 
lead modification described iain last 
manth*®s Journal, I decided there must be 
@ way toa cantrol the head load soleniod 
and the drive motor an the CiF disk 
SYStemns. 

Some checking in the manual for the 
MERI B-Si drive tused by OST) shows pin 
16 on the card edge icannector in the 
drive is called Unfortunately, OSI had 
hardwired this line to ground, s0 the 
mator runs cantinuously. This ground 
canmectian is on the small circuit card 
at the "6190 board” end of the interface 
cable. What is needed iS aA way to 
switch this line fram law toa high and 
back when desired. 

There are several ways to da this. 
The simplest is tao put a switch in the 
line and manually turn the motor oan and 
off. However, [-[ like to do things under 
program cantrol, and, with a little 
effart and one IC, this can be done 
also. 

My thanks to C.W. Aigledinger who 
suqqested falso in the April AARDVARK 
Journal) using address strobes decoded 
by the AARDVARK sound generator board. 
With slight modification, you can 
contral your drive with his circuit. OF 
course, the first thing to do is rewire 
the address lines on the sound board toa 
be compatale with the expansion : 
cannector an the 6190 board instead of 
the 600 board for which it was 
originally set up. This is a very minor 
change, as some of the lines are the 
same am both the 690 and the 419. 

With a 74L574 wired as shown here, 
connect the "CLOCK" (pin 11) to. an 
unused decoder output on the sound board 
(we'll use Y7 - pin 7 as an example). 
FOKEing anything (less than 256) into 
address 40959 will change the output 
state of the flip-flop at pin 9. This 
same output will be cannected to the 
drive*’s "MOTOR ON" line. 3 

The @asiest way ta do this is to 
locate the circuit run connecting pin 4 
and pinm i2 an the small circuit board at 
the marked "OQSI A-13 REV. B&B". Cut this 
rum as shown in the sketch. Now solder a 
wire from this through-hole to the hole 
at pin 14 (OST left 14, is and 16 
unused). 

On the 619 board solder a wire to 


pin 14 af the floppy cable connector. 


Fin 24 is at the edge of the board. 
Count backward from there. Connect this 
wire to pin 9 of the 74L574, which can 
be located ona small piece of perf 
board or anywhere else desired. 

If you used Y7 af the sound 
generator board's decode, typing will 
turn it back on. Futting this line into 
a program will alsa control the motor, 


must acid a 
to allow the 
before 


but you 
this line 
etabalize 
Gigk. 

Ore 
finished. 
at the wupper 
Incpaarr cd (just below the edge cannectar 
and rearrange it sa that pin 2 is 
jumpered ta iS and pin 7 is jumpered 
8, then turning on the motor will 1a 
the head and turning the motar off wi 
unioad the head. 

Tt you do mat have 
sound generatar board, 
the mad using an unused 
the 690 board. Panes 9 
(74L 51393) are not used 
Superboard II aor Cir. 
could be connected ta pin Ii 
added 74L574., FORE S4272 
and POKE SS296 for pin &. 


more thing and you ae 


the 
you Cam 
address 
amd 10 


still 


for pin 


timing loap after 
motar speed ta 
reading ar writing the 


Tf you remove the jumper plug 
right corner af the drive 


) 


EG 
ac 
¢ 


AARDVARK 
da 
line on 
mi Aj-2tO 
om the Model I 

Either ar these 
of the 

10, 
The Model IT 


version (with 48 X 12 display) makes use 


Of these pins on U-20, sa new board 
owners will have ta look elsewhere. 

Lu 

sii 

OL 


eo 


PIN 12 


QO O COCO OOCO0O 


Ul 
/ 


easy 


Oo 
oO 
.@) 
Oo 
O 
e) 
Oo 
Oo 
(3) 
Oo 
O 
©) 


oO 
© 


SUPERBOARD SUPER SQUND AND OTHER GOODIES 
BY STANLEY WINDES 


T have made several additions ta my 
Superboard which have greatly extended 
its usefullness and the fun I get aut af 
it. Those of you who enjay the hardware 
aspect of personal camputers will be 
especially interested. ) 4 

1. A terrific arcade-type sound — 
generator. . 

2. @& fast and 
Joy-Stick interface. : 

Lets start the discussion with the 
Sound Generator circuit. IT use the G.I. 
AYS-8910 (Programmable Sound Generator 
PSG), the most versatile sound chip an 
the market. It was written up in the 
Dec. “80 issue of Kilobaud, sa I won’*t 
discuss the chip’s structure and 
pragramming, anly how IT am using it. 


easy to use 


A DRIVE CABLE 


Ad 


A47o 


“TE 240 


‘locations. 
up-dates the 


Fiqure ane shows the AYS-8510 and 


its associated circuitry. I. show 
buffering of the address lines which may 
mat he necessary since the circuit adds 
oniy one additianal LS input. I do uge 
buffering by way af 4a 74LSe41l ain my 
particular set-up, because 2-f added this 
Circuit ta am @xisting expansion board. 
YT cheese ta lecate the saund chip at 
menary locatians 63232 thru GS235 (F709 


thraugh F703) hecause they were free and 


simple ta decade with a single 74La3o, 
(eee figure 3) The LMSBSS& autout 


YoOlume even 
anly @ MV 
SAE By Pan ee 
the standard filme) 
but ta be able to use 
the frequency canstants fram the data 
Sheets, Rt should be connected instead 
ta two times phase two clock fram pin 14 
at th50. The pragramming is well 
explained in the data sheets that came 
with the FSG. The proceedure ta load a 
Value inte one of the FSG"*s registers 
is: First select a register (1 ta 16) by 
FORE GInNG a value into location 432355 
fF7O3) thers loading the data by FOREing 
tO 6.3255 (F701). The following shows 
haw simple it is toa praduce a 
and am explosian which 


amglifs er 
Crougr 1% 
SUS Ly. The clack 
the FSG can use 
phase-twa clack, 


pravides plenty of 
16 operated fram 
OF 


balbi~beunce saund 
lo use in ane of my games. 


| pers fat avec 
sad , Sa 


32352 D=652355:REM REG 


ADDRESS DEFINITION 


AND DATA 


1100 
BALL 
1120 
1130 
1140 
L150 


POKER, 1:FQKED,10:REM SUR TO MAKE 
BOUNCE SOUND — 

POKER, 7:POQKED, 564 
POKER, 8:FQKED, 14 
POKER, 12:FO0KED,10 
POKER, 13:FOKED, © 
RETURN 

1200 POKER, 6:FOKED, 15:REM 
EXFLOSION SGUND 

[210 FOKER, 7:FPOKED, 7 

1220 POKER, @:FOKED, 16 

1250 POKER, 13:FOKED, 9 
RETURN 


SUR TO MARE 


The Joystick input is shown in 
FIiOUre “?Se The chip that does all the 
work is the AD7S81 (Analog Devices Inc.) 
and is available for approximately 12-20 
dollars, depending on type and 
quantity. There are & Analog inputs ta 
this chip corresponding to 8 memory 
The chip cantinuously 

memory locatians with a 
yaue from 0 to 2355 scaled to input 
voltage for each Analog input. All 8 

im 640 clock cycles; 


imputs are updated 
which, for the Superboard translates to 


approximately once each MS. 


The address of the input locations 
are fram 63264 to 64292 (t(r720 ta F/30) 
in steps of four. (Aqaim a hardware 
CaAnvenience) (see figure 3) therefore ta 
find a Joystick position just PEEK at 
the address af the proper input channel. 


The following is the routine I used in cannect other analog devices toa the 


a program like BREAKTHRU. The fire inputs if you wish. 
button is used to serve the ball. One last word about the 
Interdependenies of the circuits 
100 | presented: they were separated to 
GOSUBSOO: IFFEEK (63284) <2O0THENLOO: REM emphasize the fact that all need not be 
WAITING TO SERVE implemented at once. Figure 1, the PSG, 
SOO  IPsIiINT CCPEER (6327988) /255) *19) REM can be implemented alone as shown. When 
JOYSTICK OFFSET POSITION the analog input is added, as per figure 
SO. FOKEPP, 32:REM ERASE OLD FADDLE two, then conmmectians to Fin 25 of the 
S02 FPF=S53894+1P:REM NEW FADDLE FOSITION PSG change as shawn. This turns off the 
SOS FPOKEPF,135:REM DISPLAY NEW FADDLE FSG when the analog input circuit is 


addressed, 
The power requirements far this 
chip are +5V¥ and -10V. The acceptable GOOD LUCK TO ALL 
range of analog inputs is 9 ta 10V. The 
wiring diaqram for the Joysticks is in 
figure 4. Note that it is possible toa 


TELS 24 

; tet 
ss a 

| ES 
aa WLS ay 


\ 

N m; a 8 = SS er: \y 
Ce Ge a ey ee 
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DAVE EDSON, MERIDIAN, IDAHO 


seriaguse machine cade 
programmer myself, I realize the need 
for ai method tao save that program you 
lost because you crashed the assembler 
fwmich To do about 19 times per game!). 
Here is haw---- 


AS 4 am a 


1. REFORE RUNNING 
DOWN THE FOLLOWING 
LOCATIONS: 


THE FROGRAM, WRITE 
THREE MEMORY 


fl) What’s in #12CC 
(2) What’s in $12FE 
(3) What’s in #12FF 


<. Now, crash the assembler ¢CHa-Ha) 
3S. DO NOT BREAK C WHEN YOU CRASH 
4. Load the Assembler back into memory 


ie Reset these three locations back ta 
what they were before you crashed, 
6 DO NOT INIZ. Type "F", return. 
ve You will see more garbage than you 
ever thought possible. Then 

after about 15 seconds of this, your 
program will start, at 


about the lith line. You lose lines 
1-10, 


3. Type "S", return, "FP", return. 


9. As the garbage is saving out, do not 
start the tape (Unless you 

like garbage). In same spots of the 
garbage, there will be 

nothing but nulls. This is 
normal-where the assembler filters 

cassette output. 


19. Once you see your program, with the 
first 10 lines lost, press 
record, and Save your program. 


KKXKNOTE *% xX 


If your crash was & loop out of coantrol, 
it might have looped through your saurce 
program. Tf this is the case, you're 
out of luck--it’s gone forever. This 


saver is meant mainly for when you da 
something like store variables in the 
assembler or assemble in the 
assembler-things that crash the 
assembler ONLY. | 

Tf you don’t understand any of this, 


call me at 
Dave. 


(208) 888-4707. Ask for 
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BASIC BLOCK DELETE 


This 
program 
number of 


S22 byte machine language 
allows CiF awners to delete any 
BASIC lines with a single 
cammand. A word of warnings this is a 
quick and dirty routine without errar 

checking. Any deviatian fram the 
command format may produce unpredictable 
results, To delete a block af lines, 
types first line, last line CTRL/. For 
example, to delete lines 1900 to 400, 
types 100,400 CTRL/ (CTRL / appears as a 
lower case letter @). When the deletion 
is dane, the "QE" message will appear. 
The BED may take 10 to 40 seconds to 
delete a large number af lines. . 

Ragsically, what the BRED does is toa 
set the delete flaq (very appropriately 
loc. #90), read the delete line numbers, 
and convert them ta two-byte binary. 
RED reads the first number, throws ait 
away, reads the secand number, stores it 
im lac. $30,311, goes back and rereads 
the first number, and stares it in loc. 
Silay hen All this so you can type the, 
lower line number first, instead of 
last! 

A mull is stored in the start of 
the input buffer (loc. $15) to simulate 
a mull dine entry. Next, BRD jumps ta 
the line delete routine at $A29D. This 
routine is not a& subroutines it goes to 
the start of the input routine (CA$Z7D) 
when done. Luckily, the CiF input 
routine jumps through RAM and the delete 
routine can be intercepted an its way 
back ta the immediate mode. 

The delete flag is checked, and if 
it is set, the line number in lac. 
$11i,12 is incremented. Next, the number 
im #11,12 is compared to the number in 
$350, 31. If #11,12 is less than #30, 31 
the BED jumps to the erase routine 


again. Tf 11,12 15 greater than $30,331 
the RED is done. It turns off the 
delete flag and exits ti the immediate 
mode . 


You cam load the BED with the 
monitor, as shown in a previous issue of 
the AARDVARK Journal. Once you have 
dauble-checked the code, patch BRD into 
the input routine with a FOKE 
3oO6, -4sFORE S37,2. Although BRD is) shown 
at $0222, it can be stored in any part 
af RAM without modification. The only 
change would be in the two FOFKEs. 

A very neat way toa load the RED 
would be to save it aS a series of data 
lines. You could design a BASIC program 
to lower the HIMEM pointer by eighty-two 
bytes, FOKE the BBD just above the new 
HIMEM and set the input vector to the 
start of HED. Ry setting the delete 
flaq and FOFEing the right numbers into 
$11,112 and $390,231 you could erase the 
RED loading program! 


One last ward: the ERD does not 
seem ta be operational when the Extended 
Manitar 16 in memary even if yau are nat 
weing the X-Monitor at the time (it tack 
me about three haurs ta learn this). 

10 OOOO 10 GETCHR=$#OORC 
2) OD 20 GETNUM=$47 7F 
mh) OOOO 20 ERASE=$AL9D 
AO DODD 40 INFUT=$F FRA 
cted Chesiat me) Ke GODS 
ot Wee CISr &4) CMF #4 
70 O2S4 FOOR rae) SEQ START 
B80 OBES 43 gO FHA 

PO Oey ASO 0 LDA $00 
100 O229 C94AD eeLe) CMF #640) 
110 O22 FOSS 110 REC DO 
L220 O22) 66 129 a 

130 OBE 4ACRAFF 130 ver INPUT 
140 O2 31 E600 L4O0START INC #00 
iS) 0235 AViL2 130 LDA ##Ie 
160. O2535 SSCS 140 STA $03 
170 O2a7 AYOO 170 LDA HO 
1909) 02359 32C4 1&o STA $C4 
Loo O2SR 20RCOO 1909 JSR GETCHR 


Zw? OSE SOFFA 0) JSR GETNUM 
210 O24) 2ORCOO et) J5K GETCHR 
me O44 BOTK AT et) JSR GETNUM 


Shee Thar ae 
es Cen | () 


Ag 


O247 
O24AF 


ASL 


S30 


Foes art ra! 
Na 


24) 


LDF 
STA 


$11 
$30 


aw] O248 ASIS edt) LDA $12 
260 O24D O55: et) STA 21 
2/0 O24F AQIS weet) LDA #12 
200 Q251 85Ca eel) STA C3 
270 O254 2LOBCOO Ware) worm GETLAR 
SOO O2356 207FA7 BOO JSR GE TNUM 


SiO O289 A900 S10 LDA #O 


me) O2SR Bails 320) STA $1 
ae O2SD 4C9DA2 SOODELETE JMP ERASE 


240 O260 E611 S40 DO INC $11 


25) O2S2 DOO? B50) BME D1 
Tht OPS4 ESi2 BOO INC $12 


3/0 
a8O 
B9Q 
4c) 


O266 
O263 
O2OA 
O2Z6C 
Aig O26E 
Ae 270 


20 O272 


ASO 
fold 
ALS 1 
ESI? AOC) 
RBOED 410 
COQ ok) 
4Coaooag 430 


a a ae 
me 
39 


LDA 
CME 
LDA 
SEC 
RCS 
DEC 
OME 


$30 
ae 
$31 
$12 
DELLE 1T& 
SC) 
PIO 


TODD BATLEY, GREENVILLE, OHIG 


Im my letter which you published in 
the April Journal Io gave a fix far the 
MINOS game for the CIE. The value af 
H+G given ain line °7 may move the maze 
off the top af the Screen aon same 
manitors. A Value of H+t2 or 3 may work 
better. Some experimenting may be 
required for best results. 

Tf you are using the High Speed 
Tape Load prodqram on a system with the 
CLE Monitor ROM, the normal LOAD or SAVE 
function will not owark. And 

it locks the system up requiring a 
"RREAE', This 126 because the SAVE and 
LOAD routines are at new locations an 
the Cire ROM, When the program sees a 
normal LOAD ar SAVE it tries to jump tea 
the OLD locations and comes up with 
garbaqe. To fix this change data line 
S0O25O to reads: 


"SO25O DATALIZ, 76,112, 254, 165, 20, 201, 
34,240, 4,76, 125, 254, 76,355,351" 


a0 REM «cs 


E.Z. 


wark. 


T have alsa included a BASTC FORE 
program far Kerrey Lorurash*s &.2,. Lister 
program. Qne 16 for systems using OST°S 
Manitoar ROM, the ather is for systems 
Meing tre LIE Mani tor ROM, 


Lae 


190 REM-E.Z. LISTER FORCIP WITH OSI ROM— 
20 FORK=344T0603: READY: FOREX, YiNEXTX 

25 FORK=1TOSO:FPRINTs NEXTX 

30 PRINT POKES 38, 34:FOKE5S9,2 TO 
E.Z. LISTER" 

35 PRINT: PRINT: PRINT 

40 PRINT POKESS8, LOS: FOKESS9,255 To 
NORMAL LISTER" 3 

tie) DATALS1, 2.2, 72. 138, 72. $53.72. 
173,56, 2, 166,19 

110 DATA224, 153, 208,4,160,8, 132, 
20, 250, 19, 224,154, 208 

120 DATAL7, 201,13, 208, 13,198, 20, 
208, 9, 32,0, 253,201 

130 DATAS2, 208,10,198,19, 104, 148, 
104,170,104,76, 105, 255 

140 DATAI62, 254,154, 74,116,162 

iso NEW 

OF 

LIST 


et 


WIS 


Lames FORCIY WOH Lik KOM 
20 FORK=S767TO633: KREADY:FPOREX, Y¥iNEXTX 


oo FORX=17TOS0O: FP RINT s NEXT X 


30 FRINT"POKESS8, 64:FOKESS9,2 TO USE 
LISTER" 

35 PRINT: PRINTS PRINT 

40 PRINT POKES S@, 155:FOKE539, 255 
NORMAL LISTER" 

100 DATA141, 56, 2,723,138, 72, 152,72, 
1735, 56,2,166,19 

110 DATAZ24,153,108,6,160,8, 132, 20, 
230,19, 224,154,208 

120 DATAL7, 201,135, 208, 135,198, 20, 208, 
9,32,70, 251,201 | 
130) ©DATAS2, 208, 10,198, 19,104,168, 104, 
170,104,746, 155, 255 


140 DATA162, 254, 154,76,116,162 


TO Usk 


— 150 NEW 


Ok. 


WILLTAM BROOKS, SAN JOSE, CALIFORNIA 


T noted in your last Aardvark Journal 
that you have successfully interfaced an 
Eosam MX-80O printer ta OST. T bought a 
MxX-BO at the West Coast Computer Fair to 
Nnagok up ta ay Ge-or. T bought the #8141 
RS232C serial interface board far the 
orinmter taa. My C2-8F has the OSI #500 
board ain tt with RS2S2C0 hooked up. 
Hawever, 60 far the printer does not 
Ceowid you please give me 
description of what you did to make the 
MX-BO work? 


DEAR MR. BROOKS: 

THE RIBBON CARTRIDGE IS INSTALLED. THE 
RSOSS2 INTERFACE CARD IS INSTALLED AND 
THE DIF SWITCHES SET FOR O81 USE. 


1,2,2-OFF, 4,5-0N, 6,7-OFF, 8-ON 


YOU WILL NEED A "CABLE" TO HOOK THE 
PRINTER TO THE COMPUTER. THIS IS NOT 
PROVIDED BY EPSON. YOU WILL NEED 2-25 
FPIN-MOLE CONNECTORS AND 3 LENGTHS OF 
WIRE LONG ENOUGH TO REACH FROM YOUR 
COMPUTER TO THE PRINTER. 


WIRE #1 GOES FROM FRINTER FIN #2 70 
COMPUTER PIN #3. 

WIRE #2 G60ES5 FROM FPRINTER FIN #7 TO 
COMPUTER FIN #7. 

WIRE #3 GOES FROM COMPUTER FIN #5 TO 
PRINTER FIN #20. 

ON COMPUTER CONNECTOR JUMFER 9 & 10 
TOGETHER. 


JOE ENNIS, NICEVILLE, FLORIDA 


This program is ta relocate a BASIC 
program anywhere in memory.- It was 
ariginally written as part of a larger 
praject. Namely writing a Forth 
Compiler for the OSI that will work with 
either cassette ar disk systems and 
still be under 4k. Since I wrote the 
relacator, a qirl who works in my ofice 
who has am OSI disk system needed a way 
to do overlays like she is used toa with 
big main frames. (That is have an 
exective in BASIC and roll in the other 
BASIC programs from the disk and pass 
the Global variables down oan the high 
end of page 2.) The BASIC programs are 
partitioned sa that several can be in 
RAM memory at the same time and are 
kind of like big subroutines. This 
program is a Little utility for for 
setting the partitions as well as used 
to locate my assembler in high memory so 
TIT can assemble Forth in low memory. 


RASIC RELOCATOR PROGRAM. 


i GOTO 10 | 

2 HI=INT (N/256) :LO=N-256kHI: RETURN 

2¢) 

AD=577: FORI=0T027: READD: FOKEAD+I, Di NEXT 

20 FOKE11,465:POKE12,2 

30 PRINT:FRINT'CHANGE MEMORY 

PARTITION?" : 
FRINT" (ANYTHING OTHER 

THAN" PRINT" ZERO 
WILL CHANGE": INPUT"PARTITION) "sh 

40 

IFN?OTHENGOSUB2: POKE133,LO:POKE134,HI: 
POKE129,LOsPOKE130,HI 

50 PRINT:FRINT"NEW START LOCATION FOR": 
INFUT" BASIC 

ROUTINE" :N:GOSUB2:POKEN, O: 


LO=LO+1: IFLO>255THENHI=HI+1:LO=LO—-256 

60 POKESS82,LO:FOKES86,HI:LO=LO+2: IFLO? 

— SSS THENHI=HI+1:LO=LO-256 - 

70 POKE224,LO0:POKE225,HI:FOKE2246, 123: 

POKE227,0 

80 X=USRCX) 

90 DATALE2, 003,160,000, 169,001,133, 121 

91 DATAI69, 003, 133, 122, 165, 224, 145, 226 
2 DATAZO0, 165, 225, 145, 226, 200, 202,016 
93 DATAZ43,076, 000, 900 
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“QFERATORS INSTRUCTIONS 
LOAD and RUN. Answer the prompts, 
answers must be in decimal after you 
INFUT is made to "NEW START LOCATION" 
the response of the program will be OK 
ar ready depending on which Monitor ROM 
you have. Now type NEW. That is all. 
The change will have been made, and will 
stay inountil the next Cold Reset ‘C 
after Break). 


FROGRAMMER INSTRUCTIONS 
Whats happening 


At NEW START 
PORE a zero 


Set ta NEW START+1_ 
FOKE 121410) and 122¢hi), Start of BASIC 
Fointer i: 


Set to NEW START+3 

PORE es(lo) and 1i124¢(hi), Start of 
Simple Variable Storage 

PORE i25(1loa) and 126¢hi), Start of Array 
Variable Space 
FOKE 127(1a) and 128(hi), Start of Array 
Space 


set to New Top of Memory 
PFOKE 129410) and 13O¢hi), String Bottom 
(counts dawn) 

PORE i31i¢1la) and i32¢hi), String Top 
FORE 133¢10) and i34¢hi), Memory Size 


ASSEMBLY LISTING OF MACHINE CODE OF 
BRASIC RELOCATOR FROGRAM 


$0241 AZOS LDX#OS 
O243 ANQDD LDY#HOO 
O2435 APMXX LDAFLO 
O247 83579 STAS79 Z page 
O249 AIXX LDAFHI 
O24 857A STAt7A Z page 
O24D ASEO LDAHEOD Z page LOOF 
O24F GIES STA(SE2),Y 
QVecu. fe INY 
Qege ASE] LDASEL Z page 
O204 GIES STACHE2),Y 
O2g6 C8 INY 
QO257 CA DEX 
O258 1L1OF3 BNE LOOF 
O25A 400000 IMF SoOo00 


DUST COVER FOR THE C4F., 


[made a dust cover for my C4F without 
Sewing a stitch. Get a piece of heavy 
gue@e vinyl that has a cloth backing. 

Cut it to fit across the top of the 
computer, and between the Walnut side 


pieces (my cover is approximately 


16-174". ty oa" long). Not only is it 
functional and Simple, but it lets You 
see the walnut woad’s beauty. + oid it 
up in oa very tight roll and store tc in 
the space between the keyboard and the 
Of the unit, and tuck under the fron 

when the computer is turned off. Why 
didn’t OSI include a dust cover? 


E&—7 BREAK MOD STEPS FOR ANYBODY: 
ROR SARTA, 

Ld) For the C4FPs turn the computer upside 
down am a clear work space and remove 
the 61x black screws on the bottom side 
with the carrect size allen wrench. 
This step would have been easier for me 
i? YT had rested the tap surface of the 
camputer an a set of books, instead of 
ay the walnut wood sides, but no real 
problem. 


2) Carefully lift the khottam and sides 
OTF Cf the unit, BYE don’t qo far with 
ee ae You must remave the black ground 
wire from the bottam piece by unscrewing 
the bolt with a standard slot-head screw 
driver. Set the bottom/sides somewhere 
and cancentrate an what is left. 


a) QIoused 
verify 


SAMS Servicing Data book ta 
the red wire we are going to cut 
and solder the cut ends ta the switch. 
You shouldn’t meed any publications. The 
keyboard rests oan whats called a 542 
baard. The board you first saw with all 
the chips an ait is called the 302 board 
an the C4F (or the SOS board on the 
C4PMF). Lack far twa wires, one red and 
one black twisted around each other 
caning fran the hidden side of the 342 
board and going to a four pin plug about 
© anches away an the O02 board fram 
where the BREAK key is, and closest to 
the "i" key. 


red anc 
but nate 
left of the 
as viewed fram the frant of 
the chassis. The four pin plug should 
read from left to rights pin #1 £not 

cannected, pin #2 red wire pin #3 black 
wire, and pin #4 mot connected. Now, 
unplug the four-pin connector s0 as to 
prevent any damage ta the chips while 
soldering and ta make things easier to 
wark on. Make sure you know exactly 

where you unplugged the wires from and 
which side the red wire goes on when yu 
recannect them. 


4) We are going toa unplug the 
black wires from the SO2 board, 
that the red wire is to the 
black wire 


3) IT selected a miniature red button, 
momentary closed, spring loaded to the 
aOpen-pasition switch (Radia Schack sells 
& mini-switch, one red/one black, in a 
package). Any similar switch will do, 
but the smaller the switch--the smaller 
the hole you will have to drill. I put 
my button switch one-half inch from my 
ESC key. Cut the red wire and strip the 
insulation back enough toa solder the 
two ends ta the switch terminals. f 

shaved the insulation first, wrapped the 
bare wire araund both terminals, made my 


Le 


and then cut the wire 
Whatever is 


salder cammectians 
ta seperate the terminals. 


easiest for you, just be neat and don’t 
let the insulation shavings fall behind 
the board. 


6) Drilling the hole tor the switch must 
be dane very neatly. All thase metal 
chipe and flakes could ruin your ehole 
day . T used S-inch wide masking tape 
and lightly taped aver the metal ta be 
driliecd aa (both sides toa prevent 
marring the finish), overlap taped the 
keyboard, and then made a little bax out 
Of masking tape (sticky side taward 
where the hale will he) ta catch the 
metal chips. Make sure the switch will 
reach where you want ta put it, drill 
clear of the S42 board, put the keyboard 
right-side up, and da all drilling 
sameplace ather than where you will be 
reassembling it. You must use a punch 
ta get a small size drill started, and 
then switch to a larger size drill. 
Take @very precaution ta catch every 
chip, flake, sliver, ar particle of 
metal from the drill. I buiit sticky 
masking-tape fences araund the drilling, 
dressed the hole very carefully and 
dispased of all newspaper and masking 
tape immediately. Take your times this 
Eten iS irreversible! 

7) Return toa your clean work area, 
imstall the switch ain the drilled hoald 
repilug the four-pin plug (reverse step 
#4) Hook the ground wire back up to the 
boattam af the case (reverse step #2), 
and reinstall the bottom caver (reverse 


eten #1). 


DENNIS SMITH, MANSAS 

HINT: 
For 

manual 


SALINA, 


new OST Disk userss the OS65D 
talks about the CREATE utility 
and oa need for a password to use that 
Utility, but na where in the book does 
it say what that password is, After 


crying “Gsi"., "65D", TT quessed at 
"PASS", and it worked! ! 
QUESTIONS 


How da I change a password on OS65D? 
After running a disk, pressing 


RREAE, then "D" my machine just quits. 
I can coldstart, warmstert, use the 
monitor oor rum PICO DOS, but none of my 
dieks with 65D will run unless I turn 


the computer off and start from scratch 
fthis includes "Nuclear Sub") Any ideas 
as to what causes this? 


Dear Mr. Smiths 

That silly password is simply 
contained in a line in the Rexeck, 
There is an input statement that Says if 
the word. that you inout is not “PASS " 


then "NEW" or then "RUN", ar something 
similar. I strongly recommend 
eliminating that line totally. Fasswords 
are foolish unless you arre putting up a 
rather large scale turnkey operatian for 
use by office girls. 


I have never heard of a system refusing 
ta accept a "D" cammand after a break. 


IT would suggest that you look for a 
hardware problem. There is, by the way, 
no practical way to Warm start or use 


the monitor to restart a 65D system. 


ABRROTSFORD B.C., CANADA 


way of showing 754 characters 
(29 lines af 246 characters.) 


JIM ARENS, 


Here"s aA 
om a CIF. 


And also get away with using a hot 
chassis T.V. 
Furchase 2 Radio Shack (or similar) 25V 


Samp transformers. Haok the secondaries 
together which give you an isolation 
transformer amd also drops the voltage 
to the TV, cutting down overscan. 
AARDVARK Cis) 


Then (with 


POKES446,4:FPOKES47, 29: PORES48, 2:FPOKES49, 30. 


On my Sanyo TY I get all those 


locations on the screen. 


Switth 


“De a 


CARL M. EING, SARASOTA, FLORIDA 


I have learned another trick from my 
OS-65D V.3 USER*S MANUAL Freliminary 
Copy, October, 1978, page 21. That is 


the loose leaf manual. 


When you type EXIT, the DOS prompt tells 
you the number of tracks and gives you 
an AX, Then if you type RE BA (CRETURN 
BASIC), it returns you toa HASIC, and 
your program is intact. . , 


In the 
about 


C4F USERS MANUAL they tell you 
EXIT But they fail to mention the 


RE BA cammand. If you type just BA it 
returns alright, but you lose your 
program. 

How about that? The method for 


measuring the 


was there all the time, but I ° was 
reading the wrang baak! 
When writing a program to the disk, it 


is important to have a named region of 
disk large enough to contain the 
program. If far example, you have 


required number of tracks: 


18 


created a one-track file in 

anticipation of your program, and if it 
turns out that your program requires 
more than one track, and if you try ta 
put the program into that file, then you 
Will have the unhappy experience af 
fouling up your prepared track. The 
track becomes unusable. 


What we need is a handy way to measure 
the length of a program in the work 
space hefore we cammit it to the disk. 
We doan*t want ta use more tracks than 
necessary just hbecase we are iqnarant of 
the number af bytes. 


a short 
onta the end 
develop, as 


Therefore, I have developed 
pragram rautine that TIT tack 
Of every popragram that I 
follows: 
SOOO 


X=FPRE CX) s TEX OTHENX=X+6553 
BOO K=S6214—-XsFRINTX, X/2048 


In practice then I types RUNSOOOO | 
“RETURN: , and the computer prints the. 
number of bytes ain my program and the 
number af tracks needed, Once I have 
measured the length of my program, I 
can remove the two steps, if I wish, and 
cut SO bytes off the program. 


A word of explanatian about 
The FRE(X) command in the 
aperating system returns a negative 
number whenever the free bytes exceed 
a That ais why the formula for X is 
S0 complicated. The number 36214 is the 
initial mumber of free bytes in my work 
space (less 7 bytes to store xX). 


my routines: 
OS63D3 


has removed 
doubt from my mind when 
put a program oanta the 


Using this little rautine 
one element of 
preparing ta 
disk. 


JERRY MELE, BRUNSWICK, OHIO 


This subroutine (30-30) will convert a 
number T in the dollar mode as a string. 

If you wish to round off in the same 
operation change A to 1.9008. 


10 A=1.001 
BO 

DOLLAR=INT(T) sCENTS=T-DO+A: CES=STR# (CE) 
40 CES=MIDS (CES, 3,3) s DOF=STRS (DO) 


wi) 


DOS=RIGHTS (DOs, LEN (DOS) —1) : DOS=DO$+CE$: RETURN 


DOS now contains T in dollar mode. 


We have used this in 
since #R & LS would 
spacing of numbers on 


the OS6S5U payroll 
not allow close 
the check stubs. 


DAVID SUGAR, SEORTE, TLLINOQIS 


Heres a meat list of FOKEsS that I 
have discovered while doing same 
digssasembly wark. These FPOFEs are far 
users af O5S63D Versian 3.0/3.1, an «a 
CIi-FMF, and shauld make life a little 
easier for their users. 

The first curious FOKE is alsa a NEW 
screen clear (yes another ane is 
possible). The following instruction 
typed in the immediate mode should 
demonstrate how it works: 


POKESS303, 35:PRINTs PORE 9803, 0 


The last FOKE is used to restore. 
Alsa anything may be printed to the 


screen between the two FOFEs but will he 


cleared with the rest of the screen. 

Location 9682 cantrols the curser 
character, and may be changed fram its 
Current . 

Location 9781 can be used ta create 
a background on the screen, instead af 
having a blank. Rest af all this 
background will stick with the system 
until at is changed. To demanstrate try 
this ainstructians 


POKE9781,161:FORT=1TO30:PRINTs NEXT 


93800 15 a& most fascinating 


location. This is normally 32 and 
cantrols the amount the screen scrolls 
by. To get an idea how this one works, 


just try FORE98O0, 1 and hit the carriage 
return a few times! 

9811 and %°791 may be used ta 
specify scroll. windows. %811 points to 
the bottom of the screen (normally page 
2lil) and 9791 points to the top page of 
the scroll window. Tt may be noted 
that the location the page starts at may 
be offset by FORFEIng & low order address 
im 9810 and 9790 as long as the value of 
the two match up. 

Finally, there are the pairs 
96664 9667,9676,97677 and 7684, 7685. 
These addresses are in low byte (6502) 
first format. They cantral where the 
Cursor, print to screen, and cursor 
"input" reference address are located. 
These normally point to the HEX address 
of DSOOkKX. Relocating this address ta 
match up to a relocated scroll window 
provides true versitile screen 
formatting. 

Far those more interested on where 
these FOKEs came from and why they work, 
TIT suggest that you dissasemble the areas 
from HEX 2399 toa SSF4 and the scroll 
routine at HEX2635+ with the use of the 
extended monitor, like I did. 


FOR SALE 

C4P CASSETTE COMPUTER W/RB252, CAT 1O3D 

MODEM. 

DAMS FHOTOFAX, MICRO VERTER, AND 

COMPLETE 

DOCUMENTATION INCLUDED. USED ONLY 

oO MINUTES, LIKE NEW. FLUS @100 WORTH 

OF 

AARDYVARE SOFTWARE . 

WRITE: SHANS BASITI 
BOX 160% 
GRAND FRATRE, TH 7aOa1 


$780, O0 


FOR SALE 

wee MODEL DL -WiTe SEs 

RSS32 INSTALLED ON BOARD. $200,00 
PHONE J. HYLAND 

70s) Vos 2.8 


FATRICKE TOWSON, CHICAGO, ILLINOIS 


Far those of us beginners who like ta 
“Putter Around" with machine language, 
arm @xcellent new book is available 
called The 6502 Instructio Handbook. 
Fublished by SCELBI Computer Consulting, 
Ince, 20 Hurlbut Street, Elmwood, CT 
QO6110, this 45 page booklet describes 
the entire instruction set in great 
detail. It includes several appendices, 
with the Mneumonics, Machine Codes, and 
Addressing Cades. A Hexidecimal to 
Decimal lookup table is a handy 
addition also. IT bought my copy at a 
local computer shop for #4.50, but it 
cauld probably be ardered direct from 
the publisher. Much of the material 
inciuded was written by Robert Findley 
for his Gourmet Guide and Cookbook, 
published in 1979. 


TAN DAVIDSON, AUSTRALIA 


DO YOUR RANDOM NUMBERS REFEAT TOO 
We TEN’? 
try thise 


Looo 

R=RND (8) sFORW=23TOS2 TW) =T CW) +4 
L010 IFT (CW) -WTHENT (W) =O:R=RND (9) 
1020 NEXT: RETURN 


This will not repeat in less than 

foo, eed munbers. if it is still not 
good enough use FORW=3TO7 and they will 
nat repeat in under 12 million numbers! 
(Note: A "repeat" is a sequence of 5 or 
mare randam mumnbers in the same sequence 
aS previausly). 


WHAT? S NEW AT AARDVARE. 


Tiny Campiler is starting to grow up ta 
be a Compiler. The FOR,NEXT,USK(X) have 


been installed. We also have optional 
routines that you can add for FRINT and 
INF UT. The bad news is that we are 


qoing to raise the price to $19.95 far 
either tape or disk. We are still 
hoping that sameone will submit a 
routine ta add a subscripted variable. 


We have same neat new games again. Dave 
Edson has submitted SURFACE ATTACK ¢ 
which looks an awful lot like Defender) 
and THIEF ¢ which looks am awful lot 
like Ripoff). They go for $14.95 a 
piece. The team that put together the 
ariginal Minos has provided us with 
CAGE. This is a cute little #8.95 game 
im BASIC and ‘NIGHT DRIVER which is a 
hybrid BASIC/Assembler game which puts 
you on a twisting road at night and 
gives an excellent simulation of high 
speed driving. It is one of the authors 
best efforts and sells for $14.95. 


AARDVARK 


TECHNICAL SERVICES 
2352 South Commerce 
Walled Lake, MI 48088 — 


J. Coo 
402 N. SHORE pr, 
BELL INGHAM 


$22 2%, eet on tae 
WA, 9BSS4 


a8) 


Far the first time we have some bad news 
from AARDVARE. The Business programs 
which we advertised over a month aqa are 
still not being delivered. HEesides a 
number of internal problems which | 
delayed documentation, we also ran up 
against errars ain the DOS which 
accasianally scramble files in full 
gscale use, We have found the error in 
the OSf DOS and are now working an the 
caorrectian. 


The printer promises ta have the 

source Cade far BASIC done by next week. 
This 190 page commented source listing 
is far Microsoft BASIC as it appears on 
the 2" G50 disk. It a6 virtually 
identical to the & 1/74" BASIC and very 
similar ta the BASIC-IN-ROM system. It 
Will sell for $24.95. Ta fargstall any 
questions an the topic -THE SOURCE IS 
NOT AYVATLABLE IN MACHINE READABLE FORM 
—~, QOb6bvicusly we have a machine readable 
farm and have assembled BASIC to check 
the source. However, our intention is 
ta pravide documentation tao help thase 
who have purchased legal copies of 
MICROSOFT BASIC and not to help pirates. 
We will therefar sell the documentation 
and listing but not at any time the 
machine readable and assembleable form. 
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